home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S6.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-11-14  |  640 b   |  30 lines
  1. 10   PRINT "NORMAL DISTRIBUTION"
  2. 20   PRINT 
  3. 30   PRINT "(0=STANDARD,1=NON-STANDARD)"
  4. 40   PRINT "WHICH TYPE OF VARIABLE";
  5. 50   INPUT S
  6. 60   IF S = 0 THEN 120
  7. 70   PRINT "MEAN";
  8. 80   INPUT M
  9. 90   PRINT "STANDARD DEVIATION ";
  10. 100   INPUT S
  11. 110   GOTO 130
  12. 120  S = 1
  13. 130   PRINT 
  14. 140   PRINT "(TO END PROGRAM ENTER X=99999)"
  15. 150   PRINT "X = ";
  16. 160  INPUT Y
  17. 170   IF Y = 99999 THEN 290
  18. 180  Y = ABS ((Y-M) /S)
  19. 190  R =  EXP ( - (Y ^ 2) / 2) / 2.50663
  20. 200   PRINT "FREQUENCY = ";R
  21. 210  Z = Y
  22. 220  Y = 1 / (1 + 0.33267 * ABS (Y))
  23. 230  T = 1 - R* (0.436184 * Y - 0.120168 * Y ^ 2 + 0.937298 * Y ^ 3)
  24. 240  IF Z > = 0  THEN 260
  25. 250  T = 1 - T
  26. 260  PRINT "PROBABILITY = "; T
  27. 270  PRINT
  28. 280  GOTO  150
  29. 290  RUN "STAT"
  30.